100 IFATHEN120:DATA1000,7000,8000,A900,9000,C000,P1,P2,P3,P4,INPT
110 POKE56,48:CLR:DIMLO$(11):FORT=1TO11:READLO$(T):NEXT:IF0=PEEK(653)THENSYS2240
120 A=A+1:IFA<12THENLOAD"A.PAINT "+LO$(A),8,1
130 SYS64789:POKE157,0:SYS4096